Digitální fotografie a video/Digitalni-fotografie-a-video-covermount.bin/Aplikace/Servis/Katalog/Katalog.dxr/00053_New Behavior.ls

Text File | 1998-05-19 | 1.5 KB | 58 lines

property Smer, Tlacitko

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #Smer, [#comment: "Smer:", #format: #string, #default: EMPTY])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on beginSprite me
  set the visible of sprite the spriteNum of me to 1
  set the visible of sprite (the spriteNum of me + 1) to 0
end

on endSprite me
end

on mouseEnter me
  puppetSound(1, "Najezd")
  set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
  set the visible of sprite (the spriteNum of me + 1) to 1
  set Tlacitko to the castNum of sprite (the spriteNum of me + 1)
end

on mouseLeave me
  set the visible of sprite (the spriteNum of me + 1) to 0
  set the cursor of sprite the spriteNum of me to -1
  set the member of sprite (the spriteNum of me + 1) to member Tlacitko
end

on mouseDown me
  puppetSound(1, "Klik")
  set the member of sprite (the spriteNum of me + 1) to member (Tlacitko + 1)
end

on mouseUp me
  global Pozice, AutoShow
  set AutoShow to 0
  if Tlacitko > 0 then
    set the member of sprite (the spriteNum of me + 1) to member Tlacitko
  end if
  if Smer = "Zpet" then
    set Pozice to Pozice - 1
    if Pozice = 1 then
      set Pozice to 2
    end if
  else
    set Pozice to Pozice + 1
    if Pozice >= (the number of lines in the labelList - 1) then
      set Pozice to the number of lines in the labelList - 1
    end if
  end if
  go(label(line Pozice of the labelList))
end